object DefineKey: TDefineKey Left = 226 Top = 163 Width = 281 Height = 120 Caption = 'Define Key Macro' Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object CancelBtn: TBitBtn Left = 96 Top = 48 Width = 89 Height = 27 Cancel = True Caption = 'Cancel' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ModalResult = 2 ParentFont = False TabOrder = 0 OnClick = CancelBtnClick NumGlyphs = 2 end object MyEdit1: TMyEdit Left = 32 Top = 16 Width = 233 Height = 20 TabStop = False AutoSelect = False AutoSize = False BorderStyle = bsNone Color = clBtnFace Ctl3D = False Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentCtl3D = False ParentFont = False ReadOnly = True TabOrder = 1 Text = 'Press key combination to define/edit' OnKeyDown = Edit1KeyDown end end